#!/usr/bin/env perl

use Config;
use FindBin qw($Bin);
use lib "$Bin/../lib/lib/perl5/$Config{archname}";

use utf8;
use warnings;
use strict;
use gestion_bd;
use DBI;

gestion_bd::connection(); 

gestion_bd::addSubscriber("Castelli", "Stéphane", "2014", "Informatique", "scastelli", "01/02/03");